home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / TextloaderTNG / Rexx / For_ScanQuix / DPaintV / Macros / ScanBrush.dprx next >
Encoding:
Text File  |  1999-03-03  |  820 b   |  48 lines
  1. /* $VER: ScanBrush.rexx 1.1 for DPAINT V5.0 by Jochen Grus (02.09.96) */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS "DPAINT.1"
  6.  
  7. call SCAN()           /* Scans the image into a temporary file */
  8. call IMPORTGRAPHIC()  /* Loads Image into DPAINT */
  9. call DELETEFILE()     /* Removes temporary image file */
  10.  
  11. EXIT
  12.  
  13. SCAN:
  14. /* Scans the image into a temporary file using the program "ScanToDisk". */
  15.   if not 1=open('path','ENV:ScanQuix/Path','READ') then do
  16.     ok=0
  17.     return
  18.   end
  19.  
  20.   pragma('DIRECTORY',READLN('path'))
  21.   address command 'ScanQuix3/ScanToDisk FILE=ram:1 TRUECOLOR NOICONS NOGUI'
  22.   if RC>=5 then do
  23.     ok=0
  24.     return
  25.   end
  26.  
  27. return
  28.  
  29.  
  30.  
  31. IMPORTGRAPHIC:
  32. /* Loads the image into DPAINT */
  33.   if ok=0 then
  34.     return
  35.  
  36.   'LOADbrush ram:1'
  37. return
  38.  
  39.  
  40.  
  41. DELETEFILE:
  42. /* removes temporary file */
  43.   address command 'delete ram:1'
  44.  
  45.  
  46. return
  47.  
  48.